home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00181_Bonus summary text behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  708 b   |  21 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   global gPlayerTipsThisLevel, gPlayerTips, gGameLevel, gWrongAnswers, gRightAnswers
  5.   if inShotMode() then
  6.     temp = "Free Shots Summary"
  7.   else
  8.     temp = "Shot Round" && gGameLevel && "Summary"
  9.   end if
  10.   temp = temp & RETURN & RETURN
  11.   temp = temp & "Correct items:" && TAB & gRightAnswers & RETURN
  12.   temp = temp & "Incorrect items:" && TAB & gWrongAnswers & RETURN
  13.   temp = temp & "Bonus Tips:" & TAB & "$" & float(gPlayerTipsThisLevel) & RETURN
  14.   temp = temp & "Total Tips:" & TAB & "$" & float(gPlayerTips)
  15.   pSpr = sprite(me.spriteNum)
  16.   oldTabs = pSpr.member.Tabs
  17.   pSpr.member.text = temp
  18.   pSpr.member.Tabs = oldTabs
  19.   pSpr.member.line[1].alignment = #center
  20. end
  21.